90 REM VERSION 2.1
100 PRINTCHR$(14)
110 REM (C) 1985 INFERSTRUCTURE SERVICES
120 REM INFERSTRUCTURE BOOT MODULE
130 REM COPYRIGHT NOTICES
140 REM ORDERING INFORMATION
150 REM PARAMETER SETUP
160 INPUT"[147]HOW MANY COLUMNS";CL
170 DIM KF$(101)
180 IF CL=22 THEN SP$="":IB=88
190 IF CL<>22THEN SP$="        ":IB=80
200 IF CL=80 THEN SP$=SP$+SP$  :IB=80
210 FOR J=1TO11:LI$=LI$+SP$:NEXT
220 HL$=""+LEFT$(LI$,CL)+"[146]"
230 PRINT"[147]";HL$;:PRINT
240 PRINTSP$;" [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]
250 [153]SP$;"    STR$ATABASE
260 PRINT:PRINTHL$;:PRINT
270 PRINTSP$;"    [207][203] [212]O [195]OPY
280 [153]SP$;"PEEKUT (null)OT ASCOR (null)ROFIT
290 PRINT
300 PRINTSP$;"     (C) 1985
310 [153]SP$;" RIGHT$(null)ASCVAL(null)-(null)(null)(null)(null)LEN(null)(null)(null)VAL
320 PRINTSP$;"     [211]ERVICES
330 [153]
340 [153]SP$;"ATNLL LENOMMERCIAL (null)IGHTS
350 PRINTSP$;"  [210]ESERVED [194]Y [212]HE
360 [153]SP$;"ATNUTHOR (null)ENDING (null)RITTEN
370 PRINTSP$;"     [193]GREEMENT
380 [153]
390 [141] 1040
400 [153]"LOAD";SP$;"ATNLSO ATNVAILABLE ASCROM
410 PRINT
420 PRINTSP$;" [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]
430 [153]SP$;"    (null)ERVICES
440 PRINT
450 PRINTSP$;"  [201]NDEX [196]ISCS [198]OR
460 [153]SP$;"    (null)OPULAR
470 PRINTSP$;"[195]OMPUTER [205]AGAZINES:
480 [153]
490 [153]SP$;"    LEN(null)(null)(null)(null)(null)VAL!
500 PRINT
510 PRINTSP$;"    [210][213][206]
520 [153]
530 [153]SP$;"    (null)RANSACTOR
540 PRINT
550 GOSUB 1040
560 PRINT"[147]";SP$;"[197]ACH [196]ISC [195]ONTAINS:"
570 PRINT
580 PRINTSP$;"  [212]HE [201]NDEX [198]ILE"
590 PRINT
600 PRINTSP$;"[212]HE [204]ATEST [214]ERSION"
610 PRINTSP$;"        OF"
620 PRINTSP$;"  [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]"
630 PRINTSP$;"     [196]ATABASE"
640 PRINT
650 PRINTSP$;"  [196]OCUMENTED [194][193][211][201][195]
660 [153]SP$;"     (null)OURCECODE
670 PRINT
680 PRINTSP$;"  [213]SERS [205]ANUAL [198]ILE
690 [151] 3,CL
700 [141] 1040
710 [153]
720 [153]"LOAD";SP$;"  ASCOR (null)ORE RIGHT$NFORMATION"
730 [153]SP$;"     SEE THE
740 PRINT
750 PRINTSP$;"  [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]
760 [153]SP$;"  (null)SERS CHR$UIDE ASCILE"
770 [153]
780 [153]SP$;"   OR WRITE TO
790 PRINT
800 PRINTSP$;"  [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]
810 [153]SP$;"     (null)ERVICES
820 PRINTSP$;"  12 [199]LEBEMOUNT [193]VE.
830 [153]SP$;"  (null)ORONTO (null)NT.
840 PRINTSP$;"  [195]ANADA
850 [153]SP$;"  (null)4LEN 3(null)3"
860 [153]
870 [153]SP$;"  (null)LEASE INCLUDE $1.00
880 PRINTSP$;"  FOR POSTAGE AND
890 [153]SP$;"  HANDLING COSTS    "
900 [141] 1040
910 [153]"LOAD"
920 [153]"(null)RINT (null)SERS CHR$UIDEWAIT"
930 [153]"SWAITCREEN"
940 [153]"PWAITRINTER"
950 [153]"NWAITO"
960 [161] D1$(4):[139] D1$(4)[178]"" [137] 960
970 [139] D1$(4)[178]"N" [137] 999
980 [141] 1250
990 [137] 910
999 [151]53265,0
1000 [153]"LOADLOAD"[199](34)"INFSTR*"[199](34)",8":[153]"RUN"
1010 [151]198,2:[151]631,13:[151]632,13
1020 [128]
1030 :
1040 TI$[178]"000000"
1050 X[178][184](0):[139] TI$[179]"000009" [137] 1050
1060 [142]
1070 :
1080 [129] D1[178]1 [164] 21
1090 [161]#11,D1$
1100 [139] ST [167] KF$(D1)[178]"%&*":D1[178]21[170]1:[137] 1130
1110 [139] D1$[179][177][199](13) [167] D2$[178]D2$[170]D1$:[137] 1090
1120 KF$(D1)[178]D2$:D2$[178]""
1130 [130] D1
1140 [142]
1150 :
1160 [143] SUB O,RETURNDELAY
1170 [153]"  <RETURN>  TO  CONT  WAIT"
1180 [153]"<SHIFT/RETURN> TO STOPWAIT"
1190 [161] O1$
1200 [139] O1$[179][177][199](13) [175] O1$[179][177][199](141) [137] 1190
1210 [142]
1220 :
1230 [143] SUB D,PRINT SEQ FILE
1240 [143]  VARIABLE:  D2 - NUMBER OF LINES USED FLAG
1250 TMP$[178]"TEST*"
1260 [153]"LOADDISC IN DRIVE #8? WAIT":[141] 1170
1270 [153]"LOAD"
1280 [159]11,8,11,"0:INFUSR*,S,R"
1290 D2[178]0:D2$[178]""
1300 [139] D1$(4) [178]"P"[167]   [159]4,4,7
1310 [141] 1080
1320 [129] D1[178]1 [164] 21
1330 [139] KF$(D1)[178] "%&*" [167] D1[178]21[170]1:[137] 1370
1340 D2[178]D2[170]1:[139] [195](KF$(D1))[177]CL [167] D2[178]D2[170]1
1350 [139] D1$(4) [178]"P"[167]   [152]4,KF$(D1):[137] 1390
1360 [153]KF$(D1)
1370 [139] D1[179][177]100[170]1 [175]  D2[179]22  [137]1390
1380 [153]:[141] 1170:D2[178]0:[153]"LOAD":[139] O1$[178][199](141) [167] D1[178]21[170]1
1390 [130] D1
1400 [139] D1$(4)[178]"P"[167]  [160] 4
1410 [139] D1[179][177]21[170]2 [167] 1300
1420 [160] 11
1430 [142]
1440 :